00100		DIMENSION I(90)
00160		NN='MSGQ'
00200		CALL IFILE(1,NN)
00300		CALL OFILE(22,'MSGZ')
00400	1	FORMAT(90A1)
00500	2	FORMAT(1X90A1)
00600	3	READ(1,1,END=8)I
00700		DO 4 K=90,1,-1
00800	4	IF(I(K).NE.' ')GO TO 5
00900		K=1
01000	5	TYPE 2,(I(N),N=1,K)
01050		DO 6 L=1,K
01100	6	IF(I(L).EQ.'0'.AND.I(L+1).EQ.'0'.AND.I(L+2).EQ.'	')GO TO 7
01200		L=1
01210		GO TO 70
01255	7	L=L+3
01300	70	WRITE(22,1)(I(N),N=L,K)
01400		TYPE 2,(I(N),N=L,K)
01500		GO TO 3
01600	8	END FILE 22
01700		END